(isearch-repeat): When changing direction, mark search successful.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 56a73a689a57f0233c98cc7e11d43518baf12887..f3fc51778e9baa2982eaf526333e11e597d9cfee 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1147,7 +1147,8 @@ Use `isearch-exit' to quit without signaling."
                  (funcall isearch-wrap-function)
                (goto-char (if isearch-forward (point-min) (point-max)))))))
     ;; C-s in reverse or C-r in forward, change direction.
-    (setq isearch-forward (not isearch-forward)))
+    (setq isearch-forward (not isearch-forward)
+         isearch-success t))
 
   (setq isearch-barrier (point)) ; For subsequent \| if regexp.